   1 .1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567
  50 clear ;E=-24573;Z=0
  60 print #1,Z,":",E+Z,"=",;input " "J;if J>256goto 100
  65 J=J-127;if J<0 J=J+255
  70 %(E+Z)=%(E+Z)div 256mul 256+J
  80 Z=Z+1;if Z>95Z=0;E=E+101
  90 goto 60
 100 input T;if T=0NT=3;goto 60
 105 NT=0;@(16)=49;&(22)=136;&(21)=15;for A=-24574to -23160step 101
 110 for C=Ato A+92step 4;&(17)=%(C)div 256+127;&(18)=%(C+1)div 256+127;&(19)=%(C+2)div 256+127
 120 for D=1to (%(C+3)div 256+127)mul T;next D
 130 if C>E+Z-8goto 150
 140 next C;next A
 150 &(21)=0;&(22)=0;&(16)=0;&(17)=0;&(18)=0;&(19)=0
 160 NT=3;goto 100
:return ;run  
